home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
laston13.zip
/
CALR2TXT.BAS
next >
Wrap
BASIC Source File
|
1990-04-20
|
1KB
|
51 lines
'* CALR2TXT.BAS
'*---------------------------------------------------------------------------
'*
'*
'*
CallersName$ = "CALLERS"
OPEN CallersName$ FOR RANDOM AS #1 LEN = 64
OPEN "Callers.Txt" FOR OUTPUT AS #2
FIELD #1, 64 AS A$
NumRecs = LOF(1) / 64
RecNum = NumRecs
RecsPerBlock = NumRecs / 20
PRINT "CALR2TXT v0.10 04-20-90 by Tom Collins"
PRINT
PRINT "Processing "; CallersName$; ": "; STRING$(20, CHR$(176));
LOCATE , 1
PRINT "Processing "; CallersName$; ": ";
RecsProcessed = 0
WHILE RecNum > 0
GET #1, RecNum
Z$ = A$
IF INSTR(Z$, "on at") <> 0 THEN
RecsProcessed = RecsProcessed + 1
RecNum = RecNum - 1
B$ = Z$
GET #1, RecNum
Z$ = A$
J = INSTR(Z$, "{")
IF J = 0 OR J > 15 THEN
J = 15
END IF
PRINT #2, B$ + LEFT$(Z$, J - 1)
Z$ = MID$(Z$, J)
END IF
PRINT #2, Z$
RecNum = RecNum - 1
RecsProcessed = RecsProcessed + 1
IF RecsProcessed >= RecsPerBlock THEN
RecsProcessed = 0
PRINT CHR$(178);
END IF
WEND
CLOSE 1, 2